home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / StackToolsƒ / Reference / Inheritance Path Stack / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-08-13  |  3.3 KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>3730</cardID>
  8.     <listID>2066</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on startUp
  17. getHomeInfo
  18. end startUp
  19.  
  20. on resume
  21. getHomeInfo
  22. end resume
  23.  
  24. on getHomeInfo
  25. global stacks,applications,documents,userName
  26. set lockScreen to true
  27. set lockMessages to true
  28. push this card
  29. go to card "User Preferences" of stack "Home"
  30. put card field "User Name" into userName
  31. set userLevel to card field "User Level"
  32. set powerKeys to the hilite of button "Power Keys"
  33. set blindTyping to the hilite of button "Blind Typing"
  34. put field "paths" of card "stacks" into stacks
  35. put field "paths" of card "applications" into applications
  36. put field "paths" of card "documents" into documents
  37. pop card
  38. set lockScreen to false
  39. set lockMessages to false
  40. end getHomeInfo
  41.  
  42. on searchScript pattern,stackName -- search all scripts of a stack
  43. set lockMessages to true
  44. if stackName is not empty then go to stack stackName
  45.  
  46. if the script of this stack contains pattern
  47. then edit script of this stack
  48.  
  49. repeat with i = 1 to the number of bkgnds
  50. go to card 1 of bkgnd i
  51. if the script of this bkgnd contains pattern
  52. then edit script of bkgnd
  53.  
  54. repeat with j = 1 to the number of bkgnd buttons
  55. if the script of bkgnd button j contains pattern
  56. then edit script of bkgnd button j
  57. end repeat
  58.  
  59. repeat with j = 1 to the number of bkgnd fields
  60. if the script of bkgnd field j contains pattern
  61. then edit script of bkgnd field j
  62. end repeat
  63.  
  64. end repeat
  65.  
  66. repeat with i = 1 to the number of cards
  67. go card i
  68. if the script of this card contains pattern
  69. then edit script of this card
  70.  
  71. repeat with j = 1 to the number of card buttons
  72. if the script of card button j contains pattern
  73. then edit script of card button j
  74. end repeat
  75.  
  76. repeat with j = 1 to the number of card fields
  77. if the script of card field j contains pattern
  78. then edit script of card field j
  79. end repeat
  80.  
  81. end repeat
  82. set lockMessages to false
  83. end searchScript
  84.  
  85. on m1
  86. push this card
  87. push this card
  88. answer "Create a temporary holding stack named NEW"¬¨
  89. with "Ok"
  90. domenu "new stack..."
  91. pop card
  92. end m1
  93.  
  94. on m2
  95. set lockscreen to true
  96. go next card
  97. put the short id of this card into stop
  98. set lockscreen to false
  99. pop card
  100. set lockmessages to true
  101. repeat until the short id of this card is stop
  102. push this card
  103. domenu "copy card"
  104. go to last card of "new"
  105. domenu "paste card"
  106. pop card
  107. go next card
  108. end repeat
  109. go to first card of "new"
  110. domenu "delete card"
  111. set lockmessages to false
  112. domenu "compact stack"
  113. end m2
  114.  
  115. --function clickline
  116. return ((item 2 of the clickloc - item 2 of the rect of the target)¬¨
  117. div the textheight of the target) + 1
  118. end clickline
  119.  
  120. --on openfield
  121. put clickline() into msg
  122. pass openfield
  123. end openfield
  124.  
  125. on domenu var
  126. if var is "help" then
  127. go to card random(the number of cards)
  128. end if
  129. pass domenu
  130. end domenu
  131.  
  132. on cantunderstand
  133. put "Speak english, I don't understand you!"
  134. end cantunderstand
  135.  
  136. </script>
  137.     <background id="2710" file="background_2710.xml" name="boo" />
  138.     <background id="3055" file="background_3055.xml" name="" />
  139.     <card id="3730" file="card_3730.xml" marked="false" name="" owner="2710" />
  140.     <card id="4138" file="card_4138.xml" marked="false" name="" owner="3055" />
  141. </stack>
  142.